home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 010 / hamrad3.arc / DEBUG2.BAS (.txt) < prev    next >
Encoding:
GW-BASIC  |  1985-08-24  |  592 b   |  12 lines
  1. 10  CLS :REM "DEBUG2"
  2. 20  PRINT "THIS PROGRAM IS TO SHOW THE NUMERICAL PRINT OPTIONS OFFERED BY THE TANDY 1K.
  3. 30  PRINT CINT(3.1416);CINT(0.0028);CINT(-0.3762);CINT(-8.2109)
  4. 40  PRINT INT(3.1416);INT(0.0028);INT(-0.3762);INT(-8.2109)
  5. 50  PRINT FIX(3.1416);FIX(0.0028);FIX(-0.3862);FIX(-8.2109)
  6. 60  PRINT CINT(3.1416*100)/100;CINT(0.0028*100)/100;CINT(-0.3762*100)/100;CINT(-8.2109*100)/100
  7. 70  PRINT INT(3.1415*100)/100;INT(0.0028*100)/100;INT(-0.3762*100)/100;INT(-8.2109*100)/100
  8. 80  PRINT INT(3.1416*1000)/1000;INT(0.0028*1000)/1000;INT(-0.3762*1000)/1000;INT(-8.2109*1000)/1000
  9. 90  PRINT FIX(3.1416*100)/100;FIX(0.0028*100)/100;FIX(-0.3762*100)/100;FIX(-8.2109*100)/100
  10. 100  X=9.9 :PRINT X
  11. 110  V$="#####.##" :PRINT USING V$;X
  12.